administrative routine 1B feb 1 97 

onn=335 

i 11=336 

sd=302 

uc=337 

<srQ = 345 

nth=344 

ubs-345 

frp-346 

qqt=347 

bop = 350 

ctb=35? 

srr=356 

mtt=357 

be =360 

nuc=3<54 

rs 7 =355 

cpp=365 /process chain 

c7=40000 /core 7 

iok=770040 
ulk=77004 J 

nuf=20 /number of user fields 

/process words 

d i / =o /d ia word 

prn=7 /process rins 

prq = ?7 /process queue 

cns=6630 /origin of computation blocks 

ffs=705 /file capability offset 

dimension cnsC 7 ) , cnp( ? 5 , prcC 7 ) 
d ! me nslon cpd(7)pdl(40) 
'pde=pdl+40 

/consols words 

aw?=0 /assignment word 

msk=3 /console mask 

id =4 /pointer to ID 

rr0 = 5 /reader switch 

pp0=6 /punch switch 

dfJ=7 /drum field table 



/computation words 



quu 


= 77 


bp7 


= 73 


bp2 


=bp?+7 


sp3 


«bp2+7 


I Ir 


=bp3+7 


imr 


=i lr+7 


sup 


= 1 mr+7 


SPS 


~sup+7 


be7 


=spe*7 


con 


=be7+2 


prh ! 


=con+2 


def 


ine die 


terml nate 



/conpu tat i on queue ( two wo rds ) 

/location of breakpoint 

/proceed count 

/Instruction under breakpoint 

/illegal instruction return 

/illegal memory reference return 

/superior sphere 

/fault entry to superior 

/break enable 

/pointer back to console 

/process hoard 



jmp , 



100/ 

adr, 

103, 

isi, 



offset 3200 



jmp 



jmp atm 


/meta instruction 




jmp , 






770171 


/v/a it for I og ! n / I og ou t 


! o H 


lam 






eem 






dac new 






lac new 






xor old 






CAIM| 






j mp 103 






Oil 






A«-IAI 






dac t53 






xor old 






dac old 






A*-IX 






law 3 7 






rl r 7s 






r! 1 Is 






SAA 






sp 1 I 






jmp ,-3 






dap vvJ 






add (c7 


cth-40 




X-*AX 






Ixr i 






X-*AX 






ior (c7 






dac ens 






TXP 






jmp on 


/ log! n 





lac t.66 I logout 
crna 

aan 

and (c7 onn 

aam 

sad (c7 onn 

jmp Igl /not logged in 

aam 

dac (c7 onn /disable call button 

/be sure to flush core Q C-list so core 7 stuff can be deleted 

lac vv? 

rnta 204 /deists ID and user 

lac t6 6 



crna 






dac 


t? 




jsp 


exm 




Ixr 


ens 




I io 


? av, 


n 


lot 


577 


/ lar 


lot 


1577 


p 


re I 


4s 




f-4 ^ Vi 


(c7 





/sen 



•aam 




add 


(c7 bop 


TAAX 


He 


l 6 / Q 1 p 


d \Q 


J Q /bop 


lot 


277 /bff 


lot 


7777 


lot 


77 /psf 


c 1 1 




lot 


677 /lar 


lot 


■f r •» *» 
i 5 / / 


j sp 


Ixm 


Ixr 


ens 


aam 




1 3'C 


(c7 in 


dac 


i rrO 


dac 


I ppO 


lac 


t7 


and 


rw 


dac 


rv/ 


lac 


t? 


and 


pw 


dac 


pw 


lac 


t? 


and 


xrw 


dac 


xrv/ /ext 


jsp 


daf 


jsp 


dxe 


law 


I 200 


and 


1 aw 7 


dac 


1 aw 7 


jmp 


1st 



/ban 



/sen 






/dismiss ext reg 



on-, 



lac 
mta 
jmp 
1 ic 
law 
xct 
di e 
c La 
mta 
lio 
mta 
jmp 
law 
mta 
lac 
xct 
lac 
xct 
lav/ 
xct 
jmp 
lav/ 
mta 
lav/ 
I So 
xct 
die 
lav; 
and 
i or 
TAX 
lac 
and 
Ixr 
dac 
lor 
X-*AX 
dsm 
dsm 
dap 
lac 
xct 
lio 
law 
mta 
lac 
xct 
jmp 
I io 
law 

xct 
die 
aam 
lac 
and 
i or 
TAX 
lac 
dap 



vv? 

302 /create ID 

HOC 

(030000 
11 

vv? /attach it 

■tswp 

? 

(250000 

104 /read a copy of ID 

,-? 

101 

(101272 

vv? /set ill. inst. ret, for ID 

(103272 

vv? /set ill. men, ref, ret, 

202 /create a process for ID 

vv? 

HOC 

idp /initialise process state 

52 
(1 
vv? 

77 
vv? 

(I 

i 
(7777 
ens 
i id 
(c7 

i sup 

i prh 

i con 

(403372 

vv? 

(100 

14 

(302272 

vv? /create 

noc 

(1450 

242 

vv? 



/erase r 
/set its 
/give ID 
/turn on 



:s super sor 
quota to one 

3 C - I ? S t 

PRL for ID 



jser for ID 

/bring user into self 



(7777 
(c7 



:ns 



:on 



/■r! 



* ! ve 



co re 



„,?**—■}- 



law 2 02 . 

ivk SO /creata process for user 

jmp noc 

law SO 

mta 204 /erase copy of user 

taw 12 

xct vvJ /start ID running 

lac t66 

a am 

lor (c7 cnn 

aan 

dac (c7 onn 

j mp i g I 

noc, lac vvJ /can't log In 

mta 2 04 /delete ID If created it 
lav/ 5 

mta 204 /delete extra copy of user 
j mp l g I 

/initial process state for ID 

idp, 702 







n 



t66 , 

new f Q 

old, 

vv?, ivk . /console number+3a 



/process list (used only for reference counts) 



d I mens Ion ppf ( 100 ) 

dimension i if (700) /hardware device t = 

/programmed queue list 



rrq, 
qqf/ 



/f i le list 

f rf, 

f f f , 



qqf + 7 

/ 

repeat 3, .+1 





f f f /f ree f I les 

repeat 37, . + 7 



/sphere list 



rrc, 
ccf / 



ccf +2 

1 /adn rt 

! /tape con tro I Ier 

repeat 74, .+7 



/micro tape list 



rntu, 

to, 

t, 

tJ, 

t2, 

t3, 

t4, 

t5, 

to, 

t7, 

U, 

tS + T, 

cmq, 

cmr, 



repeat 4,0 




Q 


Q 





/tabkes to rotate translation word 

r 7 f ril 3s ril es r 11 9s 

r? 



ri I 3s ril 6s 
r 1 r 6s r i r 3s 

nop 



/set memory bound for computation In cnriO) 
/tS = new bound 

snb, 



sm7 ^ law i 7777 /find present bound 



sm2 / 



ypc, 



ct3, 



sns , 



lac 


crnr 




lor 


(c7 




TAX 






dsrn 


t3 




law 


i 7; 


??7 /fin 


snd 


! T 




S53 


I 




jmp 


.+5 




O AA 






idx 


ts 




sas 


(6 




jmp 


sm? 




iac 


ts 


/old bound 


sub 


t5 


/new bound 


spq 






jmp 


ccc 




jsp 


exm 


/lower the bound 


lac 


ts 




add 


cmr 




dac 


t 




for 


(c7 




dac 


t? 




sub 


t5 




dac 


t2 




Ixr 


t? 




Law 


i 7777 


and 


i 1 




spa 






jmp 


dpc 


/in core 


ra i 


6s 




and 


(37 




add 


Cc7 


sd-J 


jmp 


ct3 




aam 






I lo 


t2 




Ixr 


ts 




xct 


f r) 


i 


i aw 


7 




A«-I/5 








(c7 


be 


TAAX 






I io 


O000 


d io 


i 


/give it high sw< 


add 


(uc-bc 


TAX 






dam 


i 




jdp 


ctl 


/flush this cora 


f dx 


t5 




S35 


ts 




jnp 


sn2 




jsp 


Lxm 




idx 


snb 




j^P 


i s^ 


ib 



ccc, 



5 23 I 

jmp sms /bound is unchanged 



sm3. 



dac t2 /raise the bound 
jsp exm 

Ixr (c7 /count cores 
lio 1 u c 
sn i 

i dx t2 
lie i uc+ 1 
sn i 

i dx 1 2 
lac t2 
sma. 

jmp sm4 /already have enough 
Ixr (c7 sd /count drum fields 
lac i 
and (377777 

S5& I 

jmp . + 5 

SXXA 

ses (c7 sd+26 

jnp sn3 

jmp sny /can't gat enough 

jsp t2 

jmp .-5 



/create core field.' 



sm4/ 



r- r ft 



ro. 



on 2, 



sny, 



one, 



lac 


cmr 




add 


t3 /core number 




dac 


t? 




ior 


<c7 




dac 


t2 




sub 


t3 




CSC 


to 




j dp 


dtc /remove attachment. If 


any 


law 







Ixr 


(c7 




I jo 


! uc 




sn i 






jmp 


one 




law 


7 




I lo 


1 uc+7 




sn i 






jmp 


one 




jsp 


gaf /user field on drum 




jmp 


/can't allocate field? 




lac 


( lac 




aam 






dac 


afp 




lac 


afn /field no. 




lor 


t? 




Ixr 


tf 




dac 


i 7 




idx 


t3 /done 




sas 


t5 




j mp 


sn4 




1 dx 


smb 




jsp 


Ixm 




jmp 


1 smb 




I la 






acid 


(c7 uc 




TAX 






Lac 


t? 




dac 


! 




laf 






Ixr 


to 




Ho 


i 




Ixr 


t3 




xct 


i r7 




rcr 


3s 




W A A 






xct 


i r2 




Ixr 


to 




d!o 


I 




lac 


(400000 




jrnp 


on2 





/detach, 
/comp in 



core- in t4 , nust net be real core 



t(K7), t2 = t0 + 



t J = t: 



7 f 1 



/EXECUTIVE MOD! 






cc4, 



Ixr 




lac 


I ? 


ssa 


$ 


imp 


i dtc 


aap 


cc4 


osm 


i 1 


lor 


(c7 


TAX 




I aw 


7777 


and 


1 7 


sas 


t7 


jmp 


,-5 


law 


• 


dap 


i 7 


aam 




I i o 


to 


Ixr 


w 


xct 


I r? 


law 


6 


rcr 


3s 


CXX 




xct 


i r? 


aam 




ql c 


t/? 


jmp 


i dtc 



/empty 



/remove attachments from core+comp in t 
/EXECUTIVE MODE 

ctJ, 

lac t 
dac to 
and (7770 
TAAX 
lor (c7 

u « U li 

aam 

I io t2 

lac t(? 
X$AX 

xct I r? 

lav/ 5 

rcr 3s 

cxx 

xct \ rt 
aan 

d\Q t2 

lac tO 

icr (c7 
TAX 

law 7777 

end I 1 

dsm I 1 

ct2, sas t 

jmp ct?+2 

jmp i ct! 



/hoard Is not empty 
/check pool 

/increase debt 



/create a process for computation In cmq f skip 

crp, 

j s p gxn 

Law 7777 

and cna 

lor (c7 

TAX 

lac 1 con 

sma 

jmp cpn /not stopped 

dac t4 /save PRL bit 

lio 1 prh 

TII_< 

jmp ,+?0 

aarn 

llo (c7 frp 

sn i 

j mp cpn /too bad 

I aw I 7 

a dm i prh 

Ixr (c7 frp-prh 

lac ? prh 

tor ( c 7 

dac t5 /7po inter to proc 

lac t5 

dac i prh /unlink It 

lac (c7 

A*-IX II pointer to proc 

law 7777 

and cmq 

dac i 5 

dac I orn 

ior (c7 

I ia 

X-*IX 

lac i prn + 7 

SV/P 

dap i prn + ? 

TAX 

lac t4 

raq 3s 

and {010000 

dac i 4 /set up PRL bit 

la i 

and (7777 

dac ! prn+J 

ior (c7 

dap ! prn 

I dx crp 

cpn, jsp Um 

jmo ! cr^ 



! f ■'■■' I 



g i r 



/■delate process 
/skip if win 



whose n lipids r is in 



r c n ccmputatic n 






di7 # 



did/ 



j sp 

I ! O 

cm 1 
lac 

lor 
TAX 

Isc 

sms 

jmp 

law 

and 

sad 

jmp 

lor 

X-*AX 

SUP 

jnp 
TXXI 

Ixr 

v_^ a v 

dap 
snct 
lor 

X-AX 

d8p 

TIIX 

Lac 
ra I 
spa 
jmp 

3 3 HI 

I lo 
d I c 

l QW 
A<s-Y A 

aarrs 
dac 
lac 

dasm 
snd 
sas 

Inn 

J "It-* 



■sxm 
t4 

cmr 
(c7 

I con 

diz /not stooped 

7777 

\. prn 

cmr 

dlz 

Cc7 



dl7 

I prn+J 
I prn 

i prn 
(7777 
(c7 



/ rarnovs f rem r I 



i prn+? 

Is 

d Iw /in enter vva 1 1 

/de lata it, 7po! n 
(c7 frp 
j 
7777 



in X 



law 

and 
1 o r 



(c7 frp 

1 prn 

I nrn 

(740000 

(740000 

dly 

77 7 7 /rast 

i dH /-let 

Cc7 



~ '-«" •** 

« V t- f . 



r- r Tor !< 



t y .* 

12, 



jmp 
Idx 
j SP 

Jnp 



d 16 /and rstu rn ! t 

d lp 

Ixr 

i d Id 






\ *■* v f r"* / ^ !"*■. *™* ™» ;"% v 
i rt i V L. / v» r-- M P ; 



I 3Vv 

and 



7 7? 



re 



S«d 


( op o 


jmp 


dly 


1 o r 


Cc7 


X-»AX 




X$IP 




jmp 




ixr 


i p r 


X-*AX 





prq 



/no 



and (7777 

Jap 1 prq 
sas (cpp-prq 
jmp .+5 
Law 7 77 7 



u«a'n 

dac 
TIX 

jmp 



Cc7 cpp+? 

I prq 
d 16 



/ v 



•novs 



acr , 



r\. 



«n / 



PPQ 



am, 





cmr /srci prccassc 


K" 


lor 


(c7 




TAX 






I aw 


7777 




and 


1 con 




lor 


Cc7 




d 2 G 


ens 




lac 


ac 




dac 


ts 




1 V If 

k /\ 1 


ens 




1 la 






spa 






cm a 






dac 


t2 /| AC! 




lac 


1 nsk 




dac 


t 




cma 






dac 


U 




law 


cod 




dap 


ar I 




lac 


a 




SSE3 


1 




jmp 


PPQ 




sad 


tl 




jmp 


arf 




law 







a dm 


ar i 




jmp 


ar I 




S dx 


s r 1 




xct 


ar I 




sp! 


i 




raq 


9s 




2n a 


(777 




;-- H d 


am 




dap 


. 7 




jnp 


» 




I sw 


flaxc q 




xor 


t2 




and 


(777770 




ssa 






j mp 


err 




lew 


7 /qT to c7 




and 


t2 




ssa 


s 




jmp 


A f j- 




sub 


(10 




TAX 






i BC 


<iO0OOO 




ral 


7 s 




."* v v n 




O A A t 








,-2 




Ixr 


ens 




5p 1 


f 




j np 


.+4 




<**n*> 






and 


J awl 




jnp 


?P>* 




L i i 


/ „ _ _ : 





and I awl 

A«-IP 

jnip yes /already ^ss 

lg i 

and xaw 



PP 



j nip nc /can't 

[ah 

lor I aw 1 
i la 

xo r s aw 1 
xor xaw 
aac xaw 
dio i aw 7 
1 1 o t3 
sp 1 

jmp no 
j mp yes 



define f x,p,m 

f laxo 
[p-err3*7 00 n-err 
tarni nate 



/arq 



i ,. »* »i .1- . 



T 


r,pr ,ir 


f 


p,pp,np 


f 


*3T ,, p«7 /P«~ 


f 


7 f ^ 1 f ~> T - 


i 


xf,pxf ,srr 


f 


tf,Ptf, err 


r 


f,pff ,nvff 


T 


sx , peix # srr 




sx, sax.arr 


f 


x,er r,max 


f 


q , e r r , mq 


i 


nf,pnf,err 



ye 3, 



lac pfn /return PF In AC and skip 
rar 6 s 



yes, 



lac to 

cna 
jrnp no2 



no?, 
no, 
no 2, 



qbc ac 
lac tO 

sma 

jrnp rtm 
jmp rts 



/arq routines 

err, jmp 1 il /arq is Illegal 



/ + r 

pr , 



/-r 



1 JH -» 


U 


and 


rw 


S5a 




jmp 


no 


I Q. C 


t 


dac 


rw 


laC 


(skp 


dac 


1 rrO 


aam 




tac 


<c7 r 


I or 


(c7 


i MA 




aam 




lac 


(c7 s 


dap 


i 


jmp 


yas 



sr0 



aam 






lac 


(c7 


I li 


dac 


i rrO 


lac 


tl 




and 


rw 




dac 


rw 




ssa 






jmp 


no 




aan 






lac 


(c7 


s rr 


icr 


(c7 




TAX 






dap 


! 




^sm 






lac 


(c7 


rs ? 


lor 


(c7 




TAX 






aam 






lac 


(c7 


%r0 


dap 


i 




jmp 


no 





rw, 



/reader word 



/ + p 

PP/ 



1 3 C 


tJ 


anu 


pw 


ssa 




jmp 


no 


Lac 


u 


dec 


PW 


lac 


Cskp 


dac 


1 Q$0 


jrnp 


yss 



/-p 

mp, 



pw, 

/ + nf 

pif / 

pn 7, 



aam 
lac 
dac 
lac 

and pw 
dac pw 
j np no 





(c7 Hi 

t? 



/punch word 



Ixr (c7 


sd 


dsrn t2 




lac I 




and t 




ssa 




idx tf 




SXX A 




sas (c7 


s d + 2 5 


jrnp pn? 




Lac t? 




rar 6 s 




jrnp no J 





/+tf 
ptf / 



/+xf 



ixr 


pre 


dim 


! 


lax 


11 


an d 


io 


Ixr 


ens 


j da 


pfn 


a am 




lac 


pfp 


and 


(77 


rar 


6s 


jmp 


no? 


c la 




I I o 


io 


re I 


6% 


jda 


pfn 


I ?o 


pfp 


d i o 


t 


law 


77 


and 


Io 


j dS 


pfn 


nam 




lac 


i t 


1 1 o 


i pfp 


d i o 


1 t 


dac 


i pfp 


iam 




jmp 


yes 






/-If 

miff, 



m7f +5, 



rn?2-3, 



r.12, 



j'sp 


gar 


jmp 


no 


Jsp 


Spf 


j mp 


no 


{ aw 


044 


for 


«f n 


ra I 


6 s 


L i a 




jmp 


as3 


law 


r nuf 


dac 


t2 


lac 


S df J 


tor 


(c7 


dac 


pfp 


law 


1 ? 


a dm 


pfp 


aam 




lac 


pfp 


ssa 




jmp 


m?2 


ISO 


t2 


jnp 


mif +5 


jnp 


no 


and 


(077777 


aam 




sas 


Df p 


jrnp 


m?2-3 


and 


(77 


rar 


£s 


j da 


af n 


jmp 


els f 



/not 



'urn r 



1 elci 



/+af 
paf, 



2 AD 



maf , 



af 1 , 



Bf3-1 

af3, 

diss. 



af4, 



af 7, 



law 

dap 
I aw 
and 



jnp 
j da 
lac 



600 

dss 
77 

ID 
1 



prn 
pfn 
■dac t4 

I 7777 
lo 



law 
and 
ssa 
jmp 
j da 
lac 
j da 
skp 
imp 
jmp 

law 

and 

j da 

lac 

3am 

and 
aatn 
sas 
jmp 
ssa 
jmp 
xct 
jsp 
jnp 
jmp 

and 
rar 
jmp 



af4 
afn 
t4 

pfn 

asf 
dsf 

77 /fill AG 

io 

pfn 

(077777 

pfp 

ofp 

no /is not a field 

af7 /PF was assigned, use its AF 

dss 

gaf /PF not assigned, get new AF 

no 

af 3 

(77 

6s 

af3-T 



af2, 






law 
and 
ssa 
jmp 
j da 
a am 
lac 
and 
ssa 

jmp 
law 

add 

lor 
4+c 
aam 
iac 
ra r 
xor 



i 7777 /f! II PF 

io 

i 

yas /both are =ero 
afn 

af p 
t 



Sf5 
i nuf 
? d f ? 
(c7 

Pfp 

pfp 

6s 

(0440 



/ \ p 



IF was ass i^nad^ find 



t* P 



sad a 
jmp af6 



idx pfp 
and (7777 
sas I df? 

jmp apr 

jmp * /can 



af 5 / 



xct dss /AF was not assigned, get nsv/ PF 



Jsp gpf 



J .:!K ' < 



o 



jmp afJ 
jsp pfp* 7 
jmp aff " 



/-q 

nq, 

/-f 

rnff 



/ + f 

pff , 



ff I 



j sp 


dxe 


jnp 


no 


jsp 


daf 


jnp 


yes 


law 


! 777 


and 


10 


S28 


1 


jmp 


yes 


ral 


6s 


cma 




dac 


t? 


clac 


t2 


dac 


t3 


jsp 


gaf 


jmp 


no 


I aw 


i ? 


a dm 


apx 


isp 


t? 


jmp 


Sa7 


jsp 


gpf 


jnp 


no 


law 


i 1 


a dm 


PPX 


Isp 


t3 


jmp 


gp7 


jsp 


gaf 


jmp 


* 


j sp 


SPf 


jnp 


* 


law 


J 77 


nam 




and 


! af p 


ior 


t 


dac 


i afo 


law 


0440 


xor 


afn 


ra I 


6% 


dip 


? pfp 


iam 




isp 


t2 


jmp 


ff I 


j np 


yes 



/+ax 
pax, 

/ + sx 
sa"X/ 



tAP 



/-x 

<?BX, 



ISC 


(add 


4 - - 

■_i<3 C 


t2 


lac 


t? 


and 


xrw 


1 1 3 




and 


tz 


SWP 




and 


(177 


523^sni 


jmp 


no 


law 


177 


and 


x rw 


I or 


t 


ior 


t2 


dac 


xrw 


I aw 


200 


ixr 


ens 


ior 


i aw ? 


dec 


i av/ ! 


jmp 


yes 


lac 


t7 


and 


xrw 


dac 


x rvt 


law 


l 200 


Ix r 


ens 


and 


1 aw 1 


dac 


i aw 1 


jmp 


no 



rvv , 



dxe, 



'« «+■ 



! *•*. a^ *^J 



W: Art; 

xaw, 



dap 


dxx /dismiss 


external aq 


Ixr 


ens 




Lac 


! aw J 




xor 


xaw 




dac 


xavv 




law 


i ?77 




and 


1 aw? 




dac 


i aw 7 




jmp 


. 





/external assignment word 



dfx, 



He T 



aS t / 



dap- 


dfx. /dismiss all f 1 e I ds 






law 


1 nuf 






dac 


+• <? 

5. i- 






add 


i df 7 






ior 


(c7 






dac 


pf P 






nan 








lac 


(700000 






and 


1 pfp 






52a 


! /don't delete other 


capab i I 


ties 


dzm 


1 pfp 






Idx 


ofp 






isp 


t2 






jmp 


.-6 






iac 


(c7 sd 






dac 


afp 






lac 


t? 






and 


i afp 






dac 


i afp 






Idx 


afp 






sas 


(c7 sd+26 






jmp 


.-5 






iam 








jmp 


a 






aam 


/d i smi ss field 






lac 


pfp 






rar 


6s 






xor 


(0440 






sas 


afn 






j mp 


no 






lac 


tf 






nam 








and 


i afp 






dac 


i afp 






dzm 


i pfp 






iam 








j nip 


yes 






law 


0440 






ior 


afn 






ra I 


6s 






I ia 








lac 


t? 






aam 








and 


afp 






and 


(lac 177 






ssa 








jnp 


no /can't get i t 






aam 








lac 


J"> 1 P 






523 








jmp 


at2 






lac 


t 






aam 








.-■ n ^ 


,-s f" *"> 






'-« 1 V 






S23 








jmp 


no 






i aw 


7 77 







asf 



nam 

an u 


! 


8 ' 


fp 


lor 

you 


t 
i 


a' 


fp 


d io 


i 


p: 


fp 


lam 

jmp 


ye 


2 




A $ I P j 






jmp 


as 


3 




jmp 


no 







afp, /afp-*efn 

G3.D SpX 

afp+2, lac (-c7-sd+7 

add afp 

rar 5s 

dip afn 

an>x, jnp . 

afn, /afn-»afp 





Q8P 


anx 








lac 


afn 








ssa 


i 








jmp 


no 








ra I 


6s 








SUb 


(27 








sma 










jmp 


no 








add 


(c7 


sd 16 






d+p 


afp 






anx, 


jmp 


• 






pfP/ 




dap 


ppx 


/pf p-»pfn 




pf p + 2 , 


lac 


pfp 








sub 


! df 


J 






•a fM 


(nuf 


-c7 






dac 


pfn 






ppx, 


jmp 


■ 






pfn, 




dap 
lac 

jmp 


pnx 
pfn 
i 

no 


/pfn-*pfp 






sub 


(nuf 






sma 










jmp 


no 








add 


i df? 






ior 


(c7 








dac 


pfp 






pnx, 


jmp 


• 






gaf, 


dap 


apx 


/get absolute 


i 




lac 


(c7 


sd 






dac 


afp 






gaf+3, 


aam 
lac 
s j~a 
jmp 


afp 
i 

ga2 






§a7 * 


1 dx 


a i p 








sas 


(c7 


sd 2 6 






jmp 


saf 


3 






jmp 


apx 






SQ2, 


!dx 


apx 








jmp 


«s l p 


«7 




rr "■% f 


dap 


PPX 


/j.;e t PSiiUoo ~ ) 


| fit 




law 







add I :fj 



;pf+5, 



SP^ f 



:p2. 



lor 


(c7 


dac 


pf p 


a am 




lac 


pfp 


52S 


i 


jmp 


SP2 


Idx 


pfp 


and 


(7777 


sas 


i df! 


jmp 


gpf 5 


jmp 




idx 


PPX 


jmp 


pfp 2 



/create capab il I ty 



c ra / 



ca7. 



Co X / 



ca2, 



dap cax 
law 7777 

and cmp /crock so create sphere wl I I work 
jdp f c I 
ssa i 

jmp cax /no C- 1 ist 
sub (7 
and ac 

dac t2 /requested index number 
dac t? 
aed clp 
TAX 

lac 1 6 
TAP | 
jmp ca2 
sas t2 
jmp , 
idx tl 
sas els 
jmp car 
jmp cax 
lac era 
dac i 
lac t7 
dac ac 
I dx cax 
jmp cax 



/not free 
/asked for sere 



/meta Instructions and fvks 

/transmitted word ~ +0 for arq , -0 for arc. \, 
/2 0_<T_<77 for meta, T_>70fl for ivk w/c7 C-Mst- 
/T<0 for cO C-list (aedr-79000) 



atm / 



mtb, 



tarn 
eem 
TAX 
law 
sas 
jmp 
I sp 
jmp 
law 
a dm 
jmp 
d I o 
TXA 
dap 
lor 
TAX 
law 
and 
lor 
dac 



T A V 

sad 
jmp 
lac 
dac 
lor 
TAX 
I lo 
I aw 
spl 

j Tf)0 

Ho 

law 

rtCC 

TAAj 

jmp 

and 

sas 

jmp 

law 

add 

TAAX 

jmp 

sub 

sma 

jmp 
lac 

! or 

aam 
dac 
lac 
! o r 
:.iac 



1 2 

•F-f 

.-/ 

ff 

.+4 
! 7 

TT 



anp /set up entered process 
(10000 

7777 
i 
<c7 
pre 

I prn+7 

111 /process has been aeandoned 

? 5 

cmr 

Cc7 

i con 
21 

ano /sphere Is stooped 

(ac 

1 

anp /read live registers 

to 

aqr 
(77 

to 

iv2 /ivk 

i 23 /meta 

tO 

>P 

i IL 

(30 



ill / il lega I nunbe r 

enr /computation to which meta refers 
(240000 

(! 71 

cmr 

(c7 

emp 



1 11, 

anp, 



ac, 
io, 

f f t 



lac 


ac 


xct 


» 
» • 


jmp 


mZ0 


jmp 


m2 1 


jmp 


n\22 


jmp 


m2 3 


jmp 


m24 


jmp 


m25 


jmp 


m26 


jmp 


m2 7 


jmp 


i It 


jmp 


I 11 


jmp 


m32 


jmp 


m33 


jmp 


i U 


jmp 


m35 


jmp 


m36 


jmp 


m37 


jmp 


m4 


jmp 


m4 1 


jmp 


rn42 


jmp 


m4 3 


jnp 


m44 


jmp 


m45 


jmp 


m46 


jmp 


tp,4 7 


law 


41 


?vk 




L aw 


i ? 


a dm 


ff 


qi t 














— 





+ 7 



/mta 2QQ - read illegal Instruction rsturn 

n2 0, Ixr cmp 

lac i I L r 

ciac ac 

rtn, I Io (ac /return, no skip 

Law 7 7 
xct enp 
I aw 3 ? 
jmp enp 

/mta 20? - sat Illegal Instruction return 

m2 ? , Ixr crnp 

dac I 1 I r 
jmp rtm 

/mta 202 - read memory protection return 

m22, Ixr cmp 

lac I Imr 
jmp m2Q+2 

/mta 293 - set memory protection return 

m2 3, Ixr cmp 

dac i imr 

jmp r tm 



release capability 



\24, lac cmr 

j dp f c I 



saa t 

jmp rtm /no C- list 

sub (7 

and ac 

add clp 
TAX 

lac I 

and (700000 

ssa i 

jmp rtm 

lac i 

dsm I 

j da rmv 



jmp rtm 
/mta 205 - detach 



and 


(Q70000 


ra I 


6s 


52a 


i 


lac 


ac 


and 


(7 


dac 


t4 


sub 


(6 


sma 




jnp 


rts /if 


lac 


cmr 


add 


t4 


dac 


tJ 


ior 


Cc7 


dac 


t2 


sub 


t4 


dac 


t0 


Ixr 


t2 


law 


i 7777 


and 


i ? 


ssa 




jmp 


rtm /is 


j sp 


exm 


jdp 


dtc 


jsp 


Ixm 


jmp 


rts 



/if i I lega I, ok 



a rea I core, fa I I 



/mta '2 06 - read memory bound 

n2 6, law i 5 

dac t$ 
d in 1 7 
dsm t2 

Ixr cm.p 
rd! , lac t2 

a dm t2 

law i 7777 
and i ? 
ssa \ 



j np rd4 

fax t? /reel ccr» 



rd3, SXX 

isp t3 



j np rd ? 

lac tf /a ttachnen ts 

ra 1 6s 

lor t? /memory bound 



rar &s 
dac ac 
jnp rtm 
rd4, lac ! 7 

S23 

Idx t2 
jmp rd3 

/mta 2v7 - set metric ry bound 

n2 7, and (07 0000 

ra I ds 

S2S i 

lac ac 
and (7 

dac t5 

S2S 

sub (7 
sna 

1 mo r um 

j dp snb 

jmp rtn 

jmp rts 



/nta-302 - create sphere 

rn32, Law 7777 

and cnp 

dac cmq 

lac frc 

jmp rtrn /can't 

mul C30>2 
la I 

. add (cns-ccf*30 

*«* C* V* **■» > 'I I 

ior (c7 

TAX 
2 = 1 repeat 6,d.zn i 2 5=2+? 

1 i o (666666 
d lo ! 
law ? 

dac t5 /Initial memory bound 
jdp snb 
j mp r tm 
lac cmr 
ior (c7 
TAX 

lac (400000 
dac I bp7 
dsn 1 bp2 
csrn i hp3 
lac cmq 
dac 1 sup 
lac I o 
and (P77777 
dac i spa 
c Ic 

dac I i lr 
dac i imr 
dsm i be? 
lac (400000 
dac 1 con 
dsm 1 prh 
dam I quu 
dsni i quu + 1 
lac cmr 
dac i prn 
dac i orn + 7 
for (240000 
j da c ra 
j mp s + 7 
Ixr frc 
1 1 o I (} 

l QW / 

dac 1 

j rip rts 



/mt3 30 3 



w j -.* %* t^ *~? 



ueua 



res. 



I qC i s CI 

jmp rtri /can't get one 

sa I J s 

add C-prq+340000-qqf*2 

aam 

add Cc7 qqt 

jus v=. r a 



jnp rtm /can't fin- 
lax 7777 

and era 

lor Cc7 

dac I prq*? 

i to io 

TIK 
CII« 
la 1 

prq 
*q 



space 



/ in i 1 1 a 1 1 se It 



ra 



dac 
!xr 
lio i 
Law J 
dac ! 
a l o f rq 

tic Cac /return, 

I aw ? 1 
xct enp 
law 51 
jmp anp 



i iJ 



/rnta 


305 • 


- cr 


.» «. i- .» 


f ! la 










lac 

jmp 

r.u i 
scr 

I >-> 1 


frf 

1 

rtm 

(3 

Is 










add 


(ffs+540000-ffi 










j da 


era 










j r >">P 


rtm 










Ixr 


frf 










1 lo 


! 










lav-/ 


1 










dac 


i 










die 


frf 










jnp 


rts 




/rnta 


506 ■ 


- cr 


eate 


10 device 




m36, 






iac 

ra I 
and 

lac 

rar 
TXP| 

jmp 
jnp 


ac 
6s 
(7 

ac 
6s 

36a 
36b 




3 6*3 , 






and 
dac 


t4 










TAAX 










I i o 


! :ntu 










sn I 


i 










j nip 


rtn /not ava 1 I 


s 5 | 








ra i 


3s 










1 or 


(7/40O0 










j da 


era 










jmp 


rtm 










ixr 


t4 










1 dx 


i mtu 










jnp 


rts 




36b, 






and 

I or 

jda 
jmp 

jmp 


(77 
(600000 

r trn 
rts 





7, 



jmp ML 



/Mia 4 u U 



, ^ n ^ !, ; !•+.., 
caDcO ! i. i i, \ f 



0, 



ibc cmr 

jdp fcl 

ssa I 

~ > t h f 1 

5 H d 3C 

acid clp 
TAX 

Lac ! 

dac ac 

j mp rts 



/nta 


401 ■ 


- exchange capahi 


I I! 


ti 






iac 

523 


cmr 
fcl 
! 










j np 


rtm /no 


C- 


■li 






SUD 


(? 










I ? 8 












HP, (i 


3 C 










a H H 

l«i *«i V» 


c lp 










dac 


tT 










iac 


3C 










rar 


6s 










A*-J> 












add 


c lp 










TAX 












Lac 


I 










aam 












I io 


t! 










3«iTi 












dac 


t? 










dio 


i 










j mp 


rts 







6S 



/mta 402 - turn PRL off 



42, 


Ixr 


cmo 






(200000 




adm 


i con 




v.1 5 C 


t7 




rs 1 


2s 




sma 






jnp 


42d /already off 




law 


2 




1 vk 


71 /suppress process 1 




lac 


cmr 




lor 


(240000 




Ian 






j da 


gcp 






t* 




dsm 


tS+J 




stf 


5 




len 






Ixr 


(t* 




j dp 


ssr 




jmp 


.+4 




lac 


gcp 




j da 


rrnv /doesn't mind len 




jmp 


,-7 /returns in sen 




6901 




cnr is 


now clobbered 




Ixr 


cnp 




lac 


(-100000 




adm 


i con 


2b, 


law 


7777 




and 


I prn 




ior 


(c7 




S« d 


cnp 




jmp 


42c 




TAX 






I sc 


(-01 OQOQ 




and 


] 4 




dac 


i 4 




jmp 


42b 




I io 


t7 




law 


12 




sp I 


1 




ivk 


7? 


2d, 


Ixr 


CRD 




lac 


(-200000 




a dm 


5 con 




jmp 


rtm 



/nta 



403 - tu 



on PRL 



■ '■• i -r v? > 



lac cnr 

for (c7 

TAX 

lac (200000 

adri? I con 

dac t3 

ra I 2s 



43b 



43c, 



43 



-? j- 



jmp 43d /already on 
law 2 

ivk 71 /suppress processing 
jsp exm 
lac cmr 
ior (c7 
TAX 

lac (100000 
adm i con 
iavi 77 77 
and 1 prn 
sad cmr 
jmp 43c 
for ( c 7 
TAX 

lac (010000 
ior 1 4 
dac I 4 
jmp 43b 
law 43f 
dac ctl 
lac cmr 
dac t 
lor (c7 
TAX 

law 7777 
an ca i ? 
X-*AH 
dap 1 I 
la 1 

jmp ct2 /force off 
j tp Ixm 
law 22 
l?o (020000 
ivk 7/ /attach 
ci i a 
TIX 
dsn i /cleaq C-l ist 

e v v <\ 

sas (020100 

j mp . - 3 

lie t3 

law 12 

sp I I 

! v k 11 /psni t d r oc s s s s r. ,t 

iac cmr 

Ior (c7 

TAX 

iCSv, \ i« y 1/ u 1 u 



■ttachnents (too bad) 



adm s con 
imp rtm 



i4 4 



u\4 7. 



jmp 


: \ [ 

1 i 1 


ixr 




iac 


i prh 


'J3C 


ac 


spq 




jnp 


1* f rn 


dsm 


ac 


ssa 


I 


jmp 


rtm 


I or 


(c7 


TAV 




!dx 


ac 


iac 


!■ 


jnp 


.-6 



sea 



m45, ixr cmp /406 - decrease hoard 

lac i prh 



sam 






jmp 


.+4 




Law 


i J 




a dm 


i prh 




jmp 


rtm 




dac 


to 




? or 


Cc7 




dac 


t7 




w«8 CS J t • 






Lie 


t? 




d JO 


1 prh 




a an 






iac 


( c 7 t* rp 




aam 






dac 


t? 




Lac 


to 




aam 






dac 


(c7 frp 




jmp 


** t* r n 




Ixr 


cmp /4QJ 


- Ii 


lac 


I prh 




sms 






j n& 


,+3 




1 dx 


i prh 




jmp 


rts 




aam 






l!o 


(c7 frp 




sn i 






jmp 


rtm /too 


bad 


d !o 


1 prh 




swp 






lor 


(c7 




TAX 






iac 


! 




d so 


! 




aam 






dac 


(c7 frp 




j np 


rts 





/trans lata ; 


~apQb I 1 


,ity word in AC Into obj 


/in AC,, ttO 






g»CP/ 









dap 


gPX . 




cti 






lac 


gep 




re I 


3s 




law 


7777 




and 


gep 




TIX 






xct 


I .+T 




die 






jmp 






jmp 


£S 2 




jmp 


gs3 




d le 






jmp 


gs5 




jmp 


gs<5 




jmp 


gs7 


gs7. 


sub 


(cms- [ppf+7 0]*7 3 




mu I 


(1 




div 


(73 




die 






sn i 


i 




die 






TAA> 


f 




1 1 o 


gep 




r\ I 


5s 




Law 


1 




/5P! 






dac 


i /set ref, count to 




TXA 






ior 


{010000 




jmp 


ssy 


a5i , 


sub 


(cms-ccf*30 /sohere 




mul 


U 




i\ v 


(30 




die 






Sn 1 


i 




die 






I or 


(040000 




jmp 


ssy 


gs3, 


sub 


C-prq-qqf*2 /queue 




Ixr 


(c7 




sub 


1 qqt 




mul 


(7 




d i V 


(2 




d J S 






sn ! 


1 




d ie 






1 o r 


{ n a n a n p. 

\ v U ~J u \t %j 




jnp 


s s y 



/an tsra 



*i r J 



o ro *^° s ' 






sub (ffs-fff*3 
nui (? 
div (3 



/fl la 



sn ! i 

dia 

ior (120000 

jmp ssy 



;s«S , 



and (77 ^hardwars devi ca- 
sed ( II f 
TAAX 
llo (7 

dlo i /meke reference count 
lor (140000 
jmp ssy 



*= 1 



gs7, 



ssy, 



eiP^ j> 



rar 


3s /magnetic tape 


and 


(3 


add 


(mtu 


lor 


(160000 


dac 


;tt0 


I aw 


377 


aam 




and 


tt0 


ssa 


i 


die 


/count =5 


lac 


tt0 


jnp 


, 



/get sub-object, <XR> has object point* 



<XR+7> 



/index of sub-object, Initially 0, gets advanced to 
/next on©, skips if sub-object available, pointer ?i 
/F5 -* remove It 
/XR saved 



; u. 



ss r , 



sb-2, 



sbb 








JXXfi 


* 


dac 


;xrs 


lac 


i 


ra I 


2s 


c I i 




re i 


3s 


TIX 


/type 


sar 


5s /pointer 


XGt 


i . +? 


die 




jmp 


ssx /? - entered 


jmp 


sb2 /2 - sphere 


jmp 


ssx /3 - queue 


die 




jmp 


ssx / 5 - file 


jmp 


ssx /& - hardv/are 


jmp 


ssx 11 - entry 


mu I 


(15 


la 1 






( cms -ccf *30 


eem 




jdp 


fcl 


lem 




Ixr 


xrs 


lac 


i 1 


sub 


c Is 


S 'i >St 




j mp 


s s x 


i ex 


i 7 


sub 


(7 


add. 


c Ip 


TAX 




lac 


i 


and 


(700000 / 


S 5! <3 


! 


j mp 


sbb 


lac 


i 


dac 


t/ 


ssf 


5 


dam 


i 


j da 


I5CP 


I dx 


ssr 


lac 


tto 


Ixr 


xrs 


jmp 


1 ssr 



j ro 



:o i snore 



1 U i 



f I e Ids 



/remove referenca to capability given In AC 
/must have already been ramevad frcn C - 1 1st 



rrnv, 



a a p. mx 

L § n 

lac rmv 

J i<c ,j3 C fj 

.d+c ;tt? 

dac cpd 



/begin mark phase 



gmO, 






T(\3 , 






Ix r cpd /clear pdi down to thing be! 
elf e 



s delete? 



cif 


5 


1 3W 


377 


a am 




and 


tt? 


sad 


(7 


jmp 


gwn 


S23 


] 


d ie 


/count =5 


i3C 


tt? 


dac 


I 5 


I aw 


400 


o! 13 ill 




sorn 


! /mark it 


and 


(177400 


Si8 


I 


d 1 €5 


/mark overflc 


sas 


(400 


j rnp 


gni2 


■ =sm 


1 T /f I rs t t i me 


I 3C 


(177777 


a am 




an el 


> V 






uQv. 


? 


j sp 


ssr 


jmp 


&n2 


dac 
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